home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / UTILS.PAK / BROWSE.WFM next >
Encoding:
Text File  |  1995-07-18  |  2.4 KB  |  94 lines
  1. *******************************************************************************
  2. * PROGRAM:     Browse.wfm
  3. *
  4. * WRITTEN BY:  Borland Samples Group
  5. *
  6. * DATE:        3/95
  7. *
  8. * UPDATED:     5/95
  9. *
  10. * REVISION:    $Revision:   1.3  $
  11. *
  12. * VERSION:     Visual dBASE
  13. *
  14. * DESCRIPTION: This is a form for displaying a table in a browse format.
  15. *              It is called from SQL.wfm when a SQL statement doesn't produce
  16. *              an answer set, but changes table contents.  This form is used
  17. *              to display the changes.
  18. *
  19. * PARAMETERS:  None
  20. *
  21. * CALLS:       Buttons.cc    (Custom controls file)
  22. *
  23. * USAGE:       DO Browse.wfm
  24. *
  25. ********************************************************************************
  26. ** END HEADER -- do not remove this line*
  27. * Generated on 04/12/95
  28. *
  29. parameter bModal
  30. local f
  31. f = new BROWSEFORM()
  32. if (bModal)
  33.    f.mdi = .F. && ensure not MDI
  34.    f.ReadModal()
  35. else
  36.    f.Open()
  37. endif
  38. CLASS BROWSEFORM OF FORM
  39.    set procedure to &_dbwinhome.custom\Buttons.cc additive
  40.    this.PageNo = 1
  41.    this.ColorNormal = "N/BTNFACE"
  42.    this.Text = "Browse"
  43.    this.Top = 0
  44.    this.Left = 35
  45.    this.Height = 18.5293
  46.    this.Width = 60
  47.    this.OnOpen = CLASS::ONOPEN
  48.    this.TopMost = .F.
  49.  
  50.    DEFINE BROWSE BROWSE1 OF THIS;
  51.        PROPERTY;
  52.          PageNo 1,;
  53.          ColorNormal "WINDOWTEXT/WINDOW",;
  54.          Text " ",;
  55.          Top 1.1172,;
  56.          Left 0.832,;
  57.          ScrollBar 2,;
  58.          ColorHighLight "WindowText/Window",;
  59.          Height 15.4707,;
  60.          Width 58.834,;
  61.          CUATab .T.,;
  62.          FontBold .F.,;
  63.          OnOpen CLASS::BROWSE1_ONOPEN,;
  64.          Modify .F.
  65.  
  66.    DEFINE CLOSEBUTTON CLOSEBUTTON1 OF THIS;
  67.        PROPERTY;
  68.          Top 17,;
  69.          Left 25,;
  70.          Height 1.5293,;
  71.          Group .T.,;
  72.          Width 14.166
  73.  
  74.    ****************************************************************************
  75.    Procedure OnOpen
  76.    ****************************************************************************
  77.       form.browse1.alias = alias()
  78.  
  79.    ****************************************************************************
  80.    Procedure BROWSE1_OnOpen
  81.    ****************************************************************************
  82.    private saveFullPath
  83.  
  84.    * Display table name with full path
  85.    saveFullPath = set("fullpath")
  86.    set fullpath on
  87.  
  88.    this.text = dbf()
  89.  
  90.    set fullpath &saveFullPath
  91.  
  92. ENDCLASS
  93.  
  94.